home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / vs_804 / vernsix.ch < prev    next >
Text File  |  1991-11-19  |  1KB  |  48 lines
  1. /*
  2.  *
  3.  *   VernSix.Ch
  4.  *
  5.  *   Standard definitions for various functions in VernSix5.Lib
  6.  *   Copyright (c) 1991 by Vernon E. Six, Jr.
  7.  *   All Rights Reserved World Wide
  8.  *
  9.  */
  10.  
  11. // Sun  10-20-1991  11:41:39
  12. //
  13. // Replacement for INDEX ON
  14. //
  15. #xcommand INDEX ON <key> TO <file> [<u: UNIQUE>]    ;
  16.       => VS_ShowNtx( <"file">, <(key)>, TYPE(<key>), if( <.u.>,.T.,) )
  17.  
  18.  
  19. // Fri  10-25-1991  10:17:43
  20. //
  21. // Replacement for FWRITE( n_Handle, string + CHR(13) + CHR(10) )
  22. //
  23. #xcommand FWriteLine( <handle>, <string> )   ;
  24.       => FWrite( <handle>, <string> + CHR(13) + CHR(10) )
  25.  
  26.  
  27. // Tue  11-12-1991  14:14:35
  28. //
  29. // Compile a code block at runtime
  30. //
  31. #xtranslate COMPILE( <string> ) ;
  32.       => &( "{||" + <string> + "}" )
  33.  
  34.  
  35. // Tue  11-19-1991  12:07:42
  36. //
  37. // Push Buttons
  38. //
  39. #xtranslate pbOK  => {" Ok "}
  40.  
  41. #xtranslate VS_YesNoBox( <string>, <width>, <color> ) ;
  42.       => VS_Alert( {"",PADC(<string>, <width>),""}, {" Yes "," No "}, <color> )
  43.  
  44. #define pbNO  2
  45. #define pbYES 1
  46.  
  47. // End of VernSix.Ch
  48.